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MODULE GETFIB ( 


BEGIN 
} 
Lee RARER RAEAAAAEA REAR ATER ATER EEEE 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
' DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


is roe SOFTWARE IS 4 at we s Licause AND MAY BE USED AND sorte 
t® ONL ACCORDANCE W THE RMS UCH LICEN AN 


!® THE etree IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 

ITY FOR THE USE OR RELIABILITY OF ITS 
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1 !® DIGITAL ASSUMES NO RESPONSIBILITY 

: 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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' * 
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FACILITY: FIIACP Structure Level 2 
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; | ABSTRACT: 

; This routine obtains the address of the FIB for this operation. 

o ENVIRONMENT: 
004 i STARLET operating system, including privileged system services 
004 ! and internal exec routines. 
004 ! 

044 Hed 
se 
944 AUTHOR: Andrew C. Goldstein, CREATION DATE: 7-Jan-1977 01:02 
0049 MODIFIED BY: 

51 i v03-005 LMP0219 ark Pilan 24-Mar-1984 23:15 
O36 Preset FIBSL act eraius to 3s8. NORMAL . 

054 1! V03-004 ACG0408 Andre Goldstein, 20-Mar-1984 17:49 
B82 Make APPLY_RVN and DEFAULT _RVN macros 
b089 i v03-003 CDS0002 Christian D. Saether 18-Jan-1984 


$ 8 2 :. 2 
3 9 1! 
; & 60 1! 
: 6) bes 1! 
..§ $¢ 1! 
; 8 800 1! 
; 664 064 1! 
;. & B80? : 2 
; & 8 r$] 1! 
s or 067 1! 
; 68 0068 1! 
; 869 B082 7 3 
; 70 076 1! 
rm 0071 1! 
§ 7 0072 1! 
SRE 0073 1! 
ee 4) 0074 1! 
. so 0075 1 !x« 
: 76 0076 1 

Bet ia 0077 1 

.:. 7 0078 1 

; ww? 0079 #1 


M11 


1eSe-198e 2:35:28 DS 


Modify interface to APPLY_RVN. 
v03-002 Seay et Christian D. Saether 


30-Dec-1983 


e L_NORM Linkage ond BIND_COMMON macro. 


v03-001 ACG0358 Andrew C Soldetain, 
Remove -1,-1 DID conversion to MFD 
v02-005 acgdese Andrew C. Goldstein, 
Allow dummy file ID of -i, -1,°1 
v02-004 $1536965 Steven T. Jeffre 


15-Sep-1983 


10-Dec-1981 


28-Feb-1981 


“11 Bli 
SVMSMA 


11:44 


14:31 


Temporary fix to clear FiBSV NOCHARGE bit to prevent 


users from bypassing diskquota pepe 


V02-003 ACG0167 Andrew C. Goldstein 
Previous revision history moved to trite 


LIBRARY 'SYSSLIBRARY:LIB.L32'; 
REQUIRE 'SRCS$:FCPDEF.B32'; 


t-1978 
RCJFA 1B.REV 


20:00 
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GLOBAL ROUTINE GET_FIB (ABD) : L_NORM = 
le4 
1 


FUNCTIONAL DESCRIPTION: 


This routine obtains the address of the FIB for this operation. 
It copies the FIB from the buffer packet into local storage 
and zero extends it to maximum Length. 


CALLING SEQUENCE: 
GET_FIB (ARG1) 


INPUT PARAMETERS: 
ARG1: buffer descriptor List 


IMPLICIT INPUTS: 
CURRENT_WINDOW: address of user's window or 0 
IO_PACKET: address of user's 1/0 packet 


1 

' 

i 

i 

i 

i 

i QUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 

] 

' 
* 


ROUTINE VALUE: 
address of FIB 


SIDE EFFECTS: 
file ID may be written into FIB  —_y 
channel window pointer write-back inhibited 
result string buffers zeroed 


BEGIN 
MAP 

ABD : REF BBLOCKVECTOR C,ABDS$C_LENGTH); 

! buffer descriptors 
LOCAL 
: REF BBLOCK, ! FCB of file 

FIBL; ' Length of user FIB 

BIND_COMMON; 


! Get the Length of the user-supplied FIB. If there is a window, 
! and there is no user FIB, use the file ID from ; 

! the window's FCB, Also use the FCB's file ID if the file number 
in the user FIB is zero. 


FIBL = .ABDCABDSC_FIB, ABD$W_COUNT); 


P 
1GETFIB.832;1 (2). 


- 


Be I ONSET ET AE ES : 
12 | 

GETF IB 16-Sep-1984 00:32:18 VAX=11 Bliss-32_ V4.0-742 Page 4 GETP 

v04-000 14-Sep-1984 12:30:2 DISKSVMSMASTER:CF11X.SRCIGETFIB.832;1 (2) | 


CHSCOPY (.FIBL 
ABDEASDSC_F1B, ABDS$W_TEXT] + ABDCABDSC_FIB, ABD$W_TEXT] + 1, 


F {BSC_LENGTH, 

LOCAL-FIB); 
CURRENT_FIB ="LOCAL_F IB; 
LOCAL_FIBCFIBSL_ACL_STATUS] = SS$_NORMAL; ! Preset to success 


! If a non-zero directory ID is present, signal its presence in the 
cleanup flags. 


OR .LOCAL_ =DID-RVN] NEQ 0 | 
THEN 
BEGIN | 
CLEANUP_FLAGSCCLF_DIRECTORY) = 1; 
Bree Y AUN (LOCAL_FIBCFIBS$W_DID_RVNJ, .CURRENT_RVN); 


IF .CURRENT_WINDOW NEQ 0 
THEN 


FCB = .CURRENT WINDOWCWCBSL_FCB); 
IF .LOCAL_FIBLFIBSW_FID_NUMJ EQL 0 
AND .LOCAC_FIBCFIB$Q_FIB_RVN] EQL 0 
E (FIBSS_FID, FCBCFCBSW_FIDJ, LOCAL_FIBCFIBSW_FIDJ); 


THEN CHSMOV 
END; 


! Default the RVN in the file ID to the RVN of the directory file, if given; 
else default to the current RVN. 


IF .LOCAL_FIBCFIBSB_FID_RVN) EQL 0 

THEN LOCAC_FIBCFIB$B_FID_RVN) = .LOCAL_FIBCFIB$B DID_RVN); 
APPLY_RVN TLOCAL_FIBCFIBSW_FID_RVNJ, .CURRENT_RVA); 

' 
i 
i 
i 


If the file ID in the FIB does not match that in the FCB, this operation 
is not on the open file; clear the FCB and window addresses (except in 
the case of a DEACCESS, ir shich we force the file ID to that of the open 
file and signal an error). 


WR SO OONAU EWN (OO ONA UE WN 9 ODNOAUE WN (OO ONOUSWN—OVOW 


IF .CURRENT_WINDOW NEQ 0 
THEN 


CF 1BSu_F1D_NUM NEQ .FCBCFCBSW_FID_NUM 
FIBSW-FID"RVN) NEQ .FCBCFCBSW~FID-RVN 


GIN 
Hf 5, O.PACKETCIAPSY FCODE? EQL 10$_DEACCESS 


BEGIN 
CHSMOVE (FIBSS_FID, FCBCFCBSW_FIDJ, LOCAL_FIBCFIB$W_FIDJ); 
ERR_STATUS (S$S$_BADPARAM) ; 
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:2 
-PSECT $CODE$,NOWRT,2 


$e0-1964 00:32 


-Sep- 


14-Sep-19 
! end of routine GET_FIB 
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pen, there must be a minimum FIB. 
NSFARG); 


ACCDATA 
V_FCODE] NEQ 10$ 
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Clear FIBSV_NOCHARGE bit to prevent users from bypassing diskquota charging. 


' If there is no file rs) 
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218 bytes, Routine Base: $CODE$S + 0000 


; Routine Size: 


GETFIB 
v04-000 


PSECT SUMMARY 


; Size: 218 code + 0 data bytes 
3; Run Time: 18. 

; Elapsed Time: 00:37.0 

; Lines/CPU Min: 984 

3; Lexemes/CPU-Min: 49673 

: emery Used: 237 pages 

; Compilation Complete 


VAX-11 Bliss-32 V4,0-7 


18 42 
728 DISKSVMSMASTER CF1IX.SRCIGETFIB.B32; ie 


: Name Bytes Attributes 

: SCODES 218 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

See ear -: Sees Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped me 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 42 0 1000 00:01.9 

: COMMAND QUALIFIERS 

s BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETFIB/OBJ=OBJ$:GETFIB MSRC$:GETF IB/UPDATE=(ENH$:GETF IB) 


° 
o 
. 
e 
a 
e 
. 
o 
7 
- 
7 
6 
. 
2 
. 
o 
. 
° 
a 
. 
° 
. 
. 
. 
. 
e 
- 
o 
. 
e 
. 
e 
. 
. 
. 
. 
. 
. 
. 
o 
. 
6 
. 
e 
. 
. 
. 
a 


L EQUIPMENT CORPOR 


D A 
C DENTIAL AND PROPRIE 


mn170 AH-BT13A-SE IGIT 
{VY VAX/VMS V4.0 ONFI 


NN 


